home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 001-100 / 001-025 / 023 / ver30 / sys / msdos / fileio.c next >
C/C++ Source or Header  |  1995-03-17  |  3KB  |  156 lines
  1. /*
  2.  * Name:    MicroEMACS
  3.  *        MS-DOS file I/O.
  4.  * Version:    29
  5.  * Last edit:    05-Feb-86
  6.  * By:        rex::conroy
  7.  *        decvax!decwrl!dec-rhea!dec-rex!conroy
  8.  */
  9. #include    "def.h"
  10.  
  11. static    FILE    *ffp;
  12.  
  13. /*
  14.  * Open a file for reading.
  15.  */
  16. ffropen(fn)
  17. char    *fn;
  18. {
  19.     if ((ffp=fopen(fn, "r")) == NULL)
  20.         return (FIOFNF);
  21.     return (FIOSUC);
  22. }
  23.  
  24. /*
  25.  * Open a file for writing.
  26.  * Return TRUE if all is well, and
  27.  * FALSE on error (cannot create).
  28.  */
  29. ffwopen(fn)
  30. char    *fn;
  31. {
  32.     if ((ffp=fopen(fn, "w")) == NULL) {
  33.         eprintf("Cannot open file for writing");
  34.         return (FIOERR);
  35.     }
  36.     return (FIOSUC);
  37. }
  38.  
  39. /*
  40.  * Close a file.
  41.  * Should look at the status.
  42.  */
  43. ffclose()
  44. {
  45.     fclose(ffp);
  46.     return (FIOSUC);
  47. }
  48.  
  49. /*
  50.  * Write a line to the already
  51.  * opened file. The "buf" points to the
  52.  * buffer, and the "nbuf" is its length, less
  53.  * the free newline. Return the status.
  54.  * Check only at the newline.
  55.  */
  56. ffputline(buf, nbuf)
  57. register char    buf[];
  58. {
  59.     register int    i;
  60.  
  61.     for (i=0; i<nbuf; ++i)
  62.         putc(buf[i]&0xFF, ffp);
  63.     putc('\n', ffp);
  64.     if (ferror(ffp) != FALSE) {
  65.         eprintf("Write I/O error");
  66.         return (FIOERR);
  67.     }
  68.     return (FIOSUC);
  69. }
  70.  
  71. /*
  72.  * Read a line from a file, and store the bytes
  73.  * in the supplied buffer. Stop on end of file or end of
  74.  * line. Don't get upset by files that don't have an end of
  75.  * line on the last line; this seem to be common on CP/M-86 and
  76.  * MS-DOS (the suspected culprit is VAX/VMS kermit, but this
  77.  * has not been confirmed. If this is sufficiently researched
  78.  * it may be possible to pull this kludge). Delete any CR
  79.  * followed by an LF. This is mainly for runoff documents,
  80.  * both on VMS and on Ultrix (they get copied over from
  81.  * VMS systems with DECnet).
  82.  */
  83. ffgetline(buf, nbuf)
  84. register char    buf[];
  85. {
  86.     register int    c;
  87.     register int    i;
  88.  
  89.     i = 0;
  90.     for (;;) {
  91.         c = getc(ffp);
  92.         if (c == '\r') {        /* Delete any non-stray    */
  93.             c = getc(ffp);        /* carriage returns.    */
  94.             if (c != '\n') {
  95.                 if (i >= nbuf-1) {
  96.                     eprintf("File has long line");
  97.                     return (FIOERR);
  98.                 }
  99.                 buf[i++] = '\r';
  100.             }
  101.         }
  102.         if (c==EOF || c=='\n')        /* End of line.        */
  103.             break;
  104.         if (i >= nbuf-1) {
  105.             eprintf("File has long line");
  106.             return (FIOERR);
  107.         }
  108.         buf[i++] = c;
  109.     }
  110.     if (c == EOF) {                /* End of file.        */
  111.         if (ferror(ffp) != FALSE) {
  112.             eprintf("File read error");
  113.             return (FIOERR);
  114.         }
  115.         if (i == 0)            /* Don't get upset if    */
  116.             return (FIOEOF);    /* no newline at EOF.    */
  117.     }
  118.     buf[i] = 0;
  119.     return (FIOSUC);
  120. }
  121.  
  122. /*
  123.  * Some backup user on MS-DOS might want
  124.  * to determine some rule for doing backups on that
  125.  * system, and fix this. I don't use MS-DOS, so I don't
  126.  * know what the right rules would be. Return TRUE so
  127.  * the caller does not abort a write.
  128.  */
  129. fbackupfile(fname)
  130. char    *fname;
  131. {
  132.     return (TRUE);                /* Hack.        */
  133. }
  134.  
  135. /*
  136.  * The string "fn" is a file name.
  137.  * Perform any required case adjustments. All sustems
  138.  * we deal with so far have case insensitive file systems.
  139.  * We zap everything to lower case. The problem we are trying
  140.  * to solve is getting 2 buffers holding the same file if
  141.  * you visit one of them with the "caps lock" key down.
  142.  * On UNIX file names are dual case, so we leave
  143.  * everything alone.
  144.  */
  145. adjustcase(fn)
  146. register char    *fn;
  147. {
  148.     register int    c;
  149.  
  150.     while ((c = *fn) != 0) {
  151.         if (c>='A' && c<='Z')
  152.             *fn = c + 'a' - 'A';
  153.         ++fn;
  154.     }
  155. }
  156.